perm filename COMP.ALP[HAL,HE]1 blob sn#235501 filedate 1976-09-09 generic text, type T, neo UTF8
		;Start of program
	XPROG
		;BLOCK
	XMVAR
		;
	22
		;$B1.N
	24
	0
		;Assignment
	XPUSH
	L1
	XCHNGE
		;$B1.N
	24
		;Move
	XMOVE
	L2
	4
		;Block end cleanup
	XKVAR
		;
	22
		;$B1.N
	24
	0
		;End of BLOCK
	XENDP
		;End of program